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OVERVIEW 


INTRODUCTION 


EXTENDED ATARI BASIC (BASIC/XA) helps you write programs in 
ATARI BASIC. It can tell you what variables you have used in your 
program, their values and dimensions, and which lines use them. 
BASIC/XA also lets you change variable names, delete a range of lines 
from your program, renumber your program, and check your program for 
bad GOTO statements and syntax errors. 


This automatically loading program is written in machine language and 
uses about 4000 bytes of memory. A BASIC program included with both 
versions lets you relocate the diskette version for your system and 


provides cassette owners with a way to transfer BASIC/XA to 
diskette. 


To use BASIC/XA, just type DOS when the READY prompt displays. The 
screen will clear and display your choices, in the style of the DOS menu. 
Displaying the real DOS menu is one of BASIC/XA‘s menu choices. 


REQUIRED ACCESSORIES 


ATARI BASIC Language Cartridge 
Cassette version 


16K RAM 
ATARI 410 Program Recorder 


Diskette version 


24K RAM 
ATARI 810 Disk Drive 


OPTIONAL ACCESSORIES 


ATARI printer or equivalent printer 


RELATED PUBLICATIONS 
i, ATART BASIC Reference Manual 


The following publications aren’t needed for using BASIC/XA, but 
advanced assembly language programmers who want to study the listings 
in the ADVANCED TECHNICAL INFORMATION section should have 
these materials. 


(CO1é6555) 


3. Winner, Lane, "The Atari Tutorial, Part 6: ATARI BASIC," BYTE, 
February 1952, pp. 91-118, This material also appears in De Re ATARI 
(APX-90008), 


4, ATARI Disk Operating System II Reference Manual (CO16347) 


CONTACTING THE AUTHOR 


Users wishing to contact the author about BASIC/XA may write to him 
ati 


FO. Box 313 
Wrightsville Beach, NC 278480 


GETTING STARTED 


LOADING BASIC/XA INTO COMPUTER MEMORY 


1. Insert the ATARI BASIC Language Cartridge in the (eft) cartridge 
slot of your computer. 


a. Have your computer turned OFF. 


b. Insert the BASIC/XA cassette into the program recorder’s 
cassette holder and press REWIND on the recorder until the tape 
rewinds completely. Then press PLAY to prepare the program 
recorder for loading the program. 


c. Turn on the computer while holding down the START key, and then 
turn on your TV set. 


d. When you hear a beep, release the START key and press the 
RETURN key. The program will load into computer memory and start 
automatically. 


a. Have your computer turned OFF. 

b. Turn on your disk drive. 

c. When the BUSY light goes out, open the disk drive door and insert 
the BASIC/XA diskette with the label in the lower right-hand corner 
nearest to you. (Use disk drive one if you have more than one drive.) 
d. Turn on your computer and your TV set. The program will load into 


computer memory and start automatically, 


THE FIRST DISPLAY SCREEN 
After BASIC/XA loads into computer memory, you'll see! 
*X*X EXTENDED ATARI BASIC 
XXX Version 1,1 


*XX Copyright 1982 Thomas Newton 


READY 


USING BASIC SX A 


BASIC/XA‘'S DISPLAY SCREEN 
To use BASIC/XA, load your program into computer memory. Then type 
DOS and press the RETURN key to display this menu! 


EXTENDED ATARI BASIC VERSION 1.1 
COFYRIGHT 1982 THOMAS NEWTON 


A. LIST VARTABLES F. RENUMBER 

B. VARTABLE VALUES G. CHECK FROGRAM 
C. CHANGE NAME H. NEW OUTPUT FILE 
D. CROSS REFERENCE I. RETURN TO BASIC 
E. DELETE LINES J+ GO TO DOS MENU 


SELECT ITEM OR RETURN FOR MENU 


To select a command, type its letter and press RETURN. Press RETURN 
again to redisplay the menu. 


COMMANDS 


The description of each command is divided into the following sections? 
1. Function -- describes what the command does. 


2. Using it -- shows the questions you must answer when you use the 
command. Your responses are underlined. If you’re in BASIC’s 
READY mode, you should type DOS to display the BASIC/XA menu. 


3. Error messages -~- explains the error messages that display if you 


make a mistake or if the computer can’t print to your NEW OUTPUT 
FILE, 


4, Warning messages —- explains the warning messages you may see 
when you use the RENUMBER and CHECK PROGRAM commands. 
These messages tell you about expressions used as line numbers and 
errors in your program. 


3. Example —- demonstrates the use of the command with a small 
BASIC program. 


6 Notes -- lists additional information about the command that you 
should know. 


IMPORTANT NOTES 


If your program uses IOCB #5 (OPEN #5, PRINT #5, and so on), you 
should CLOSE it before typing DOS to display the BASIC/XA menu. 


If you have the diskette version of BASIC/XA; you must have a 
MEM,.SAV file on the diskette in disk drive one when you go to the DOS 
menu with BASIC/XA’s J command. While in DOS, you must not give 
permission for DOS to use the program area. The same diskette must be 
in drive one when you return to BASIC as when you went to the DOS 
menus 


If you want to use the DUPLICATE DISK command, turn the computer off 
and turn it back on using a diskette that doesn’t contain BASIC/XA,. 
You can now allow DOS to use the program area (if the diskette does nat 
have a MEM.SAV file, DOS will use it automatically). You may also want 
to follow this procedure when using the COPY FILE and DUPLICATE 
FILE commands, since allowing DOS to use all of memory results in far 
less diskette swapping. 


COMMAND A} LIST VARIABLES 


Function 
This command lists the variable names you’ve used in your program. It 
also tells you how many variable names are in the table. If you’ve used 
command H, NEW OUTPUT FILE, the table prints to the file you selected 
(e.g., to the printer). 

Using it 


SELECT ITEM OR RETURN FOR MENU 
& 


Error messages 


INPUT/OUTPUT ERROR -~ the computer could not print to your file OR 
you pressed the BREAK key. If you were sending output to a file, the 


program closes the file, and the rest of the table prints on the TV 
screen. 


Example 


Suppose you enter the following program (your typing is underlined)! 


READY 


16 DIM C$(10)9,A(20) 
20 FOR X=1 TO 10 


30 ACX)=XXXXX 
40 NEXT X 


Now you want to see all the variable names used in the program! 
pos 
(screen clears and the BASIC/XA menu appears) 


SELECT ITEM OR RETURN FOR MENU 
A 


VARIABLE NAME TABLE 
C$ 

AC 

X 

3 VARIABLES USED 


SELECT ITEM OR RETURN FOR MENU , 
z 


READY 


Notice that the name of array A ended with a "(" character. The name of 
an array or matrix always ends with a "(", and the name of a string, like 
C$, always ends with a dollar sign. 


Variable names appear in the table in the order you used them in the 
program. 


COMMAND B! VARIABLE VALUES 


Function 
This command lists the variables used in your program. It also prints 
the value of simple variations (such as X) and the dimensions of arrays, 
matrices, and strings. If you’ve used command H, NEW OUTPUT FILE, 
the table prints to the file you selected, 

Using it 


SELECT ITEM OR RETURN FOR MENU 
Et 


Error messages 


INPUT/OUTPUT ERROR -- the computer couldn’t print to your file OR 
you pressed the BREAK key. If you were sending output to a file, the 
program closes the file, and the rest of the table prints on the TV 
screen, 


Example 


Suppose you enter the following program (your typing is underlined)! 


10 DIM C#(10)0,x%¢5)> 


30 X(B)=ExE 
40 NEXT E 


Now you want to list the value of B and the dimensions of C$ and X(. 
boas 
(screen clears amd the BASIC/XA menu appears) 


SELECT ITEM OR RETURN FOR MENU 
Et 


VARIABLE VALUES 
CH$C.ee) 

KOsee? 

BE = 0 

3 VARIABLES USED 


The computer typed the (...) by C$ and X to let you know that these 


variables haven’t been dimensioned. It also told you that B is zero, 
Now let’s RUN the program and try it again. 


SELECT ITEM OR RETURN FOR MENU 
L 

READY 

RUN 


READY 
DOS 


(screen clears and the EBASIC/XA menu sppears) 


SELECT ITEM OR RETURN FOR MENU 
E 


VARTAEBLE VALUES 


C$¢(109) 
XCS) 
B= 6 


3 VARIABLES USED 


This time, the computer told you the dimensions of C$ and X(. It also 
told you that B is equal to 4. 


SELECT ITEM OR RETURN FOR MENU 
r 

READY 

FRINT BSREM make sure it is 6 
& 


READY 


Notes 


VARIABLE VALUES is most useful when you’re debugging a program. 
You can press the BREAK key to stop a running program, go to BASIC, 
and CONTinue running the program. 


Although the computer prints the DIMension of strings, it doesn’t print 
their length. If X$ has been dimensioned, the BASIC command PRINT 
- LEN(X$) will print the length of X$. 


COMMAND Ci CHANGE NAME 


Function 


Using it 


This command lets you change the name of any variable in your program. 
You can make long variable names short, or change short names such as 
F into more descriptive names like FOOD, 


SELECT ITEM OR RETURN FOR MENU 
C 


CHANGE NAME--OLD VARIABLE NAME? 
the mame the variable has now 


NEW NAME (MUST BE SAME TYFED? 
the mame you want to change it to 


To return to the SELECT ITEM prompt without changing any names, 
press RETURN or BREAK in response to either question. 


Remember to end the name of an array with the "(" character} for 
example, array X is named X(. The name of a string variable ends with a 
dollar sign (example: C$), 


Error messages 


LINE TOO LONG -- you entered a name that is more than one screen 
line (38 characters) long) CHANGE NAME can only handle names that 
are 33 characters long or less. 


NOT USED IN PROGRAM -~ a variable name you entered is not used in 
the program, so it is impossible to change it. 


BAD VARIABLE NAME -- a variable name must start with a letter and 
consist of letters and numbers. The name of an array ends with a "(" 
character, and the name of a string ends with a dollar sign. You also 
get this message if you type spaces before the variable name. 


TYPES DO NOT MATCH -- you can only change a simple variable to a 
simple variable, an array to an array, or a string to a string. 


NAMES ALREADY EXISTS -- you cannot change a variable name toa 
name already used in the program. This prevents you from having two 
variables with the same name. You will also get this message if you try 
to change a variable name to itself. It is possible to have a variable 
named A, an array A, and a string A$, since their respective names are 
A, Al, and A$-~all different. 


NOT ENOUGH MEMORY -- there isn’t enough memory to change the 
variable name. This happens when the new name is too long or when you 


10 


have less than 20 bytes of free memory. 


Any error message returns you to the SELECT ITEM OR RETURN FOR 
MENU prompt without changing the variable name, 


Example 


Suppose you enter the following program (your typing is underlined): 


10 DIM AC10),D$(5) 
20 FOR C=i TO 10 
30 B=CxCiPRINT C,E 
40 NEXT C 


Now you want to change the name of array A, string D$, and variable Ci 


pos 
(screen clears amd the BASIC/XA menu sppears)?) 


SELECT ITEM OR RETURN FOR MENU 
Cc 


CHANGE NAME--OLD VARIABLE NAME? 
AC 


NEW NAME (MUST BE SAME TYPE)? 
ARRAY ( 


SELECT ITEM OR RETURN FOR MENU 
C 


CHANGE NAME--OLD VARIABLE NAME? 
Ds 


NEW NAME (MUST BE SAME TYPE)? 
STATS 


SELECT ITEM OR RETURN FOR MENU 
Cc 


CHANGE NAME--OLD VARIABLE NAME? 
C 


NEW NAME (MUST BE SAME TYPE)? 
Et 


NAME ALREADY EXISTS 


Since variable name B is already used, the computer doesn’t permit the 
change. Instead, it prints an error message. 


il 


Notes 


SELECT ITEM GR RETURN FOR MENU 
c 

CHANGE NAME--OLD VARIABLE NAME? 
Bs 

NEW NAME (MUST BE SAME TYPE)? 
COUNT 


SELECT ITEM OR RETURN FOR MENU 
z 

READY 

LIST 


10 DIM ARRAY (10),STAT#(S) 

20 FOR COUNT=1 TO 10 

30 B=COUNTXCOUNTIF RINT COUNT,E 
40 NEXT COUNT 


READY 


Although you can use variables names like INPUT, PRINT, and so on, 
avoid doing so, because BASIC may not let you edit your program. If you 
make this mistake, use CHANGE NAME to change the variable name to 
one that BASIC likes, such as X or INP, 


If you use long lines in your program and you make your variable names 
too long, you won’t be able to edit some of the lines in your program 
because they’ll be more than three screen lines long. To edit these 
lines, you’ll have to shorten the names. 
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COMMAND D! CROSS REFERENCE 


Function 
This command lists the variable names used in your program and the 
lines that use them. It also tells you how many variable names have 
been used. If you’ve used command H, NEW OUTPUT FILE, the table 
prints to the file you selected. 

Using it 


SELECT ITEM OR RETURN FOR MENU 
g 


Error messages 


INPUT/OUTPUT ERROR -- the computer could not print to your file OR 
you pressed the BREAK key. If you were sending output to a file, the 


program closes the file, and the rest of the table prints on the TV 
screen, 


Example 


Suppose you enter the following program (your typing is underlined): 


READY 
NEW 


READY 

10 FOR C=1 TO 10 
20 B=CxXCIFPRINT C,B 
30 NEXT C 

PRINT A 

0 


READY 


Now you want to list the variable in the program and the lines that use 
them! 


DOS 
(screen clears and the BASIC/XA menu appears? 


SELECT ITEM OR RETURN FOR MENU 
D 
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Notes 


VARTABLE CROSS REFERENCE TABLE 


Cc 
10 20 30 
E 


A 
3 VARTABLES USED 


SELECT ITEM OR RETURN FOR MENU 
ne 


READY 


Note that variable A is not used in the program, since there are no line 
numbers following its name. However, it is taking up space and pushing 
the program closer to ATARI BASIC’s limit of 128 variable names. 


On the screen, the cross reference table has four columns per line. 
When you use command H, NEW OUTPUT FILE, to send the table to the 
printer or a file, the table has ten columns per line (for an S0—column 
printer) To adjust BASIC/XA for a 40-column printer, see 
CUSTOMIZING THE PROGRAM, 


To remove unused variable names from your program, follow this 
procedure; 


1, Load the program into memory, 
2. If you have a cassette recorder: 


a. Type LIST "Ci" and press RETURN. When you hear two beeps, 
place a blank tape in the recorder. Then press the PLAY and 
RECORD buttons on the recorder, and press the RETURN key on 


the computer console. The computer will list the program to the 
cassette, 


b. Type NEW and press RETURN to remove the tokenized version 
of the program and the variable names from memory. 


c+ Rewind the cassette and press PLAY on the recorder to 
prepare it for loading the program. Then type ENTER "Ci" and 
press RETURN. When you hear a beep, press RETURN again, 
The computer will get your program from the cassette, When the 
READY prompt appears, press STOP on the recorder, 


Tf you have a disk drive! 


a. Place a diskette with plenty of free space in drive one. Then 
type LIST "D:‘TEMP" and press RETURN. The computer will list 
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the program to diskette, 


b. Type NEW and press RETURN to remove the tokenized version 
of the program and the variable names from memory. 


ce Type ENTER "DiTEMP" and press RETURN. The computer will 
get your program from the diskette. 


d. To remove the “DiITEMP" file from the diskette, type XIO 
33,4#1,0,0, "DSTEMP" and press RETURN. 


4, Save your program to cassette or diskette. The unused variable 
names will now be gone. 


Normally, BASIC stores your program in a "tokenized" form, meaning 
that commands like PRINT are stored as a single number. Variable 
names are stored in a table and referred to by a number. For example, 
the command PRINT X is translated into two numbers, the number for 
PRINT and the position of X in the variable name table. If you stop 
using a variable name, BASIC still keeps it in the table. When you LIST 
the program to tape or diskette and then ENTER it, BASIC translates 
the program into numbers all over again. Since unused variable names 
da not show up in the listing, they are removed from the variable name 
table, 


ts) 


COMMAND E} DELETE LINES 


Function 


Using it 


This command lets you delete a range of lines from your program. 


SELECT ITEM OR RETURN FOR MENU 
E 


DELETE--START, END LINES? 
starting line, ending line 


To return to the SELECT ITEM prompt, press RETURN or BREAK 
instead of entering the starting and ending lines. 


Error messages 


Example 


BAD NUMBER —- you didn’t type two numbers separated by a comma. 


LINE TOO LONG -- your response was longer than one line on the 
screen, 


NUMBER OUT OF RANGE -- one of the numbers you typed was negative 
or greater than 32747. BASIC uses line numbers from 0 to 32747, 


SECOND LINE # MUST BE LARGER -—- the first line number must be 
smaller than or equal to the second one. 


When the program prints any error message, you return to the SELECT 
ITEM or RETURN FOR MENU prompt without deleting any lines. 


Suppose you enter the following program (your typing is underlined)! 


READY 


Somme teranasveaneeme = commameanareacenmns « sestnmreetrmsentey  Seuaaameneyerseameae 


22 REM 
27. REM 
30 REM THIS LINE WILL 


Now you want to delete lines 20 through 27: 


16 


Notes 


Das 
(screen Clears amd the BASIC/XA meruw appears) 


SELECT ITEM OR RETURN FOR MENU 
E 

DELETE--START, END LINES? 
20,27 


SELECT ITEM OR RETURN FOR MENU 
L 

READY 

LIST 


10 REM THIS LINE WILL REMAIN 
30 REM THIS LINE WILL REMAIN 


READY 


If you have many lines to delete, DELETE LINES may take several 
minutes. DO NOT press SYSTEM RESET or you will lose your program 
and lock up the computer. Just wait for the program to finish and return 
to the SELECT ITEM OR RETURN FOR MENU prompt. 


For example, typing "400,32767" in response to the DELETE prompt will 
delete from line 400 to the end of the program, 


If you delete a large section of the program, you might remove several 
variable names from the program. However, the names will still be 
stored by BASIC. Use the CROSS REFERENCE command to see how many 
unused variable names are in the table. You can remove unused names 
by following the steps listed in the notes for the CROSS REFERENCE 
command. 
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COMMAND Fi RENUMBER 


Function 


Using it 


This command lets you renumber your program. You choose the new 
starting line number and the spacing between lines, 


SELECT ITEM OR RETURN FOR MENU 

a 

RENUMBER--NEW STARTING LINE, SPACING? 

new starting line mumber, Spacing between line 
MUMber s 


If you press RETURN without entering numbers, RENUMBER uses 10 for 
the new starting line number and 10 for the spacing between 
lines. 


To return to the SELECT ITEM prompt 


without renumbering, press the BREAK key when you see the 
RENUMBER prompt. 


Error messages 


These messages appear if you answer the RENUMBER prompt 
incorrectly, You return to the SELECT ITEM prompt without 
renumbering the program. 


LINE TOO LONG -- your answer was longer than one screen line, 
BAD NUMBER —- you didn’t type two numbers separated by a comma. 


NUMBER OUT OF RANGE -- one of the numbers you typed was negative 
or greater than 32747, BASIC uses line numbers from 0 ta 32767, 


SPACING CAN’T BE ZERO -- you cannot have zero spacing between 
lines, since all lines would have the same line number. 


CAN’T RENUMBER -- renumbering would result in a line number within 
SPACING of 32747. For example, if the SPACING was 10, you would get 
CAN’T RENUMBER if renumbering would result in a line number greater 


than 32757. Try renumbering the program again with a smaller 
SPACING. 


Warning messages 


These messages appear during renumbering. They tell you to check lines 
in your program. 


EXPRESSION FOUND IN LINE xxx -- an expression or a negative 
number follows a GOTO, GO TO, GOSUB, TRAP, RESTORE, LIST, 


is 


Example 


IF/THEN, ON/GOTO, or ON/GOSUB statement in line xxx. You must 
update the expression; if it was in a LIST, ON/GOTO, or ON/GOSUB 
statement, you must update line numbers following it in the statement, 


LINE #yyy, FOUND IN LINE xxx, DOES NOT EXIST -- a line number in a 
GOTO, GOSUB, etc. statement does not correspond to any line of the 
program (for example, GOTO 100 when there is no line 100), The line 
number is left unchanged. 


BAD LINE NUMBER IN LINE xxx -- the line number in a GOTO, GOSUB, 
etc,, statement is greater than 22747 (greater than 65535 for TRAP). 
When you RUN the program, this line will cause an ERROR - 7. The line 
number is left unchanged, 


Suppose you enter the following program (your typing is underlined): 


READY 
NEW 


READY 

10 INFUT A 
20 ON A GOSUE 100,200,306 
21 PRINT "TEST PROGRAM" 
22 TRAF 40000 


Now you want to renumber the program to make room for some 
statements betweeen lines 271 and 22? 


pos 
(screen clears and the BASIC/XA menu appears) 


SELECT ITEM OR RETURN FOR MENU 

ES 

RENUMBERK--NEW STARTING LINE, SPACING? 
(you press the RETURN key) 


LINE #200, FOUND IN LINE 20, 
DOES NOT EXIST 


SELECT ITEM OR RETURN FOR MENU 
I 

READY 

LIST 


Notes 


10 INFUT A 

20 ON A GOSUE 60,200.80 
30 FRINT "TEST FROGRAM" 
40 TRAP 40000 

360 GOTO 30 

60 REM SUEI 

70 RETURN 

80 REM SUES 

90 RETURN 


READY 


Since TRAP with a number between 327468 and 65535 cancels previous 
TRAPs, RENUMBER left the TRAP 40000 alone. In line 20, although the 
200 caused an error, the other line numbers were adjusted for the 
renumbered program. 


DO NOT press SYSTEM RESET or BREAK while RENUMBER is 
renumbering the program. Most renumbering jobs take only a few 
seconds. 


If you use the LIST command in your program (e.g., 10 LIST), you will get 
a false EXPRESSION FOUND message if the LIST is to a device, and the 
line numbers following the device name will NOT be changed. For 
example, 10 LIST "Pi",100,200 will cause an EXPRESSION FOUND 
message, and the LIST command will not be updated to reflect the new 


- line numbers. 
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COMMAND Gi CHECK PROGRAM 


Function 


Using it 


This command lets you check your program for line numbers that don’t 
exist, bad line numbers, INPUT statements without variables, and lines 
with syntax error, It also tells you about expressions used as line 
numbers. 


SELECT ITEM OR RETURN FOR MENU 
G 


Warning messages 


Example 


INPUT/OUTPUT ERROR -- you pressed the BREAK key. If you were 
sending output to a file, the file is closed and the output of LIST 
VARIABLES, VARIABLE VALUES, and CROSS REFERENCE will be sent 
to the TV screen, 


EXPRESSION FOUND IN LINE xxx -- an expression or a negative 
number follows a GOTO, GO TO, GOSUB, TRAP, RESTORE, LIST, 
IF/THEN, ON/GOTO, or ON/GOSUB statement in line xxx. Line 
numbers following the expression in the same statement are not 
checked. This is not really an error, but you will get this message again 
when you renumber the program. 


LINE #yyy, FOUND IN LINE xxx, DOES NOT EXIST -~ a line number in a 
GOTO, GOSUB, etc., statement does not correspond to any line in the 
program (for example, GOTO 100 when there is no line 100). This line 
will cause an ERROR - 12 when the program is RUN and reaches the line. 


BAD LINE NUMBER IN LINE xxx -~ the line number in a GOTO, GOSUB, 
etc,, statement is greater than 32767 (greater than 65535 for TRAP). 
When you RUN the program, this line will cause an ERROR - 7. 


INPUT BY ITSELF IN LINE xxx — the INPUT statement in line xxx is 


- not followed by a variable name. When you RUN the program, this line 


will lock the computer up; losing your program. Although BASIC checks 
for syntax errors, this is the one syntax error it doesn’t catch until it’s 
too late. 


SYNTAX ERROR IN LINE xxx -- when you entered the line, BASIC told 


you it contained a syntax error and you didn’t fix the line. When you 
RUN the program, this line will cause an ERROR - 17, 


Suppose you enter the following program (your typing is underlined): 


READY 


21 


NEM 


READY 

10 FPRINT "YOUR NUMBER" 
20 INFUT 

30 IF A=3 THEN 20 


eoowecmee — Tictepnny — eameteeeeuernte seumagenammsnccemans  Carsacemtaneae 


20 TRAP 100000 

Now you want to check the program for the errors listed above! 
pas 
(screen clears amd the BASIC/XA meru appears) 


SELECT ITEM OR RETURN FOR MENU 
& 

LINE #100, FOUND IN LINE 40, 
DOES NOT EXIST 

EAD LINE NUMBER IN LINE 50 
INPUT BY ITSELF IN LINE 20 


SELECT ITEM OR RETURN FOR MENU 
ZL 


READY 


CHECK PROGRAM caught three errors: the branch to line 100 in line 40, 
the TRAP 100000 in line 50, and the INPUT in line 20. If you had RUN 
this program immediately, the computer would have locked up. Now let’s 
fix the errors and try it again? 


20 INFUT A 


50 TRAF 40000 


(screen clears amd the EASIC/XA menu appears) 


SELECT ITEM OR RETURN FOR MENU 
G 


SELECT ITEM OR RETURN FOR MENU 
Z 


READY 
This time, CHECK PROGRAM did not find any errors, 


Notes 


CHECK PROGRAM is most useful for catching bad GOTO and GOSUB 
statements. Often, you don’t find these mistakes until you’ve RUN a 


program several times. CHECK PROGRAM catches all these mistakes at 
once, 


CHECK PROGRAM cannot find logical errors in your program, such as 
setting A to 5 when it should be 4, 
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COMMAND Hi NEW OUPUT FILE 


Function 


Using it 


This command lets you send the LIST VARIABLES, VARIABLE VALUES, 
and CROSS REFERENCE tables to the printer, a cassette file, ora 
diskette file. Having a printed copy of these tables is very useful. 


SELECT ITEM OR RETURN FOR MENU 
H 


NEW QUTPUT FILE (RETURN FOR SCREEN)? 
filename , 


The filename may be any of the following! 
Fs Sends tables to the printer 


Ci Sends tables to the cassette 
recorder. Wher you hear two 
heeps, place 2@ blank 
tape in the recorder, 
press PLAY and RECORD, 
and press RETURN, 


Difilename.ext Sends tables to a disk file, 
Anything that was im the 
file before will be lost. 


Riri3 Sends tables to serial port #n of 
the ATARI 850 Interface. 
You may have to condition 
the port with XIO statements 
before selecting it for printine. 


E? or RETURN Sends tables to the screen 


If you were already sending output to a file, the program closes the - 
previous file before opening the new file. 


Error messages 


INFUT/OUTPUT ERROR -- you pressed the BREAK key while the 
computer was trying to open the file, 


LINE TOO LONG —- the filename you gave was more than one screen line 
too long. 


CAN’T OPEN FILE -- when the computer tried to open the file, an error 
happened, The most common errors are! 


Example 


Notes 


1. Device timeout -- you selected the printer and a printer was not 
connected or it was not turned on. You also may have left your drive 
off when you tried to send output to a diskette file, 


2. Locked file -- you selected a diskette file and it was locked. 


3, Diskette write-protected -- the write-protect notch on the 
diskette is covered or the diskette does not have a write-protect 
notch, 


4, Bad filename -- you forgot the D! for a diskette filename or the 
filename was bad. 


SELECT ITEM OR RETURN FOR MENU 
H 


NEW OUTPUT FILE (RETURN FOR SCREEN)? 


SELECT ITEM OR RETURN FOR MENU 


SELECT ITEM OR RETURN FOR MENU 

D 

Both the VARIABLE VALUES table and the CROSS REFERENCE table 
will be sent to the printer. 


If there is an error when the computer tries to print to the file, you will 
see the INPUT/OUTPUT ERROR message on the screen. The program 
automatically closes the file and sends the rest of the listing to the 
screen, 


When you select command I, RETURN TO BASIC, or command J, GO TO 
DOS MENU, the program closes the file. If you select command H again, 
the program closes the file before opening the new one. 


If you have any file open, don’t press SYSTEM RESET, because you may 
lose the file. Once you return to BASIC, go to the DOS menu, or select 
NEW OUTPUT FILE and send output to the screen, the program closes 
the file, making it safe to press SYSTEM RESET, 
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COMMAND Ii RETURN TO BASIC 


Function 

This command lets you return to ATARI BASIC from BASIC/XA, 
Using it 

ors ITEM OR RETURN FOR MENU 

READY 
Notes 


If you were sending output to a file, the file will be clased. 
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COMMAND Ti 


Function 


Using it 


Notes 


GO TO DOS MENU 


This command lets you go to the DOS menu from BASIC/XA. 


SELECT ITEM OR RETURN FOR MENU 
J 


(DOS menu seppears om the screen) 


The diskette must have a MEM.SAV file. While you are in DOS, you must 
nat give DOS permission to use the program area. When you return to 
BASIC (DOS option B or SYSTEM RESET), you must have the same 
diskette in drive one as when you went to the DOS menu. See 
IMPORTANT NOTES for more information. 


If you were sending output to a file, the file will be closed. 
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CUSTOMIZING THE PROGRArI 


USING CROSS REFERENCE WITH A 40-COLUMN PRINTER 


The CROSS REFERENCE command normally prints ten numbers to a 
printer line. This is fine for S0-column printers, but messy for 
40-column ones. To adjust CROSS REFERENCE for a 40-column printer? 


1. If you have the cassette version of BASIC/XA (WARNING! Do NOT 
use this POKE unless you have loaded BASIC/XA. If you haven’t, 
you could lock up the computer.)! 


a. Type POKE 5681,4 if you have a 40-column printer. 


b. To reset CROSS REFERENCE for 80 columns, type POKE 
3677,10, 


2. If you have the diskette version of BASIC/XA (WARNING! Do NOT 
use this POKE unless you have loaded BASIC/XA. If you haven’t, 
you could lock up the computer.)3 


a. Type POKE 11321,4 if you have a 40-column printer. 


b. To reset CROSS REFERENCE for 80 columns, type POKE 
11317,10, 


Each time you load BASIC/XA, you must do the POKE if you want 
40-column output. 


If you have the diskette version of BASIC/XA, these steps modify the 
program for your printer? 


i. Prepare a diskette that contains the DOS.SYS, DUP.SYS, and 
MEM.SAV files. The diskette should not have an AUTORUN.SYS file 
(it will be replaced). It should have at least 346 free sectors (DOS 
prints the number of free sectors at the end of the directory). 


2. If you have 24K of RAM, turn your computer off and turn it back on 
using a diskette that does not have a copy of BASIC/XA. If you have 
an ATARI 850 Interface Module, leave it off, These steps are 
necessary because CUSTOM.BAS uses all 24K of memory. 


3. Insert the BASIC/XA diskette into drive one. Type RUN 
"D:CUSTOM.BAS" and press RETURN. The program loads into memory 
and displays? 


EXTENDED ATARI EASIC VERSION i-i 
Copyright 1982 Thomas Newton 


This program lets you relocate EXTENDED ATART 
BASIC for your system. 


Fleaese hold on while I get ready... 


Do you want to relocate the proeram 
(type Y or ND)? 


Type N and press RETURN. 
4. The computer asks? 


Do you have an SO-column printer 
(type Y or N)? 


If you have a 40-column printer, type N and press RETURN. If you 
have an S0-column printer, type Y and press RETURN. 


S. The computer asks? 


Do you want the program to check for 
an ATARI 850 Interface included with 
EXTENDED ATARI BASIC (Type Y or N) 

° 


Type Y and press RETURN. 
6. The screen clears and displays? 


EXTENDED ATARI BASIC VERSION i.i 
Copyright 1982 Thomes Newton 


Frogrem loads at? 7420 

Froaram emds at $ 11491 

Columns per line? 4 (10 for an 80 column 
printer) 


Flece @ system diskette Cane that has 
a copy of DOS) in drive one and press 
RETURN to write the AUTORUN.SYS file. 
Fress any other key to quit without 
writing the AUTORUN.SYS file. 


7, Insert the diskette that you prepared in step 1 into drive one and 
press RETURN. The computer saves a copy of BASIC/XA on the 
diskette. 
8. The computer types! 

Your disk mow contains a copy of 

EXTENDED ATARI BASIC. To use the 

program, Place the disk in drive one 

when you turn your system or. 


READY 
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RELOCATING THE PROGRAM FOR AN ALTERED DOS 


If you change the number of drive buffers or file buffers that DOS uses 
(described in the DOS II Reference Manual), you must relocate 
BASIC/XA to work with your version of DOS. To make a copy of 
BASIC/XA for your system: 


1. Prepare a diskette that has the DOS.SYS, and MEM.SAV files. 
This diskette contains your version of DOS. It should not have an 
AUTORUN.SYS file. It should have at least 346 free sectors (DOS 
prints the number of free sectors at the end of the directory), 

2, Turn your computer off. Turn it back on using the diskette you 
prepared in step i. If you have an ATARI 850 Interface Module, 
leave it off. Type PRINT PEEK(743)+254*#PEEK(744) , press RETURN, 
and write down the number on the screen. 


3. Turn your computer off. Turn it back on using the DOS II Master 
Diskette. If you have an ATARI $50 Interface Module, leave it off, 


4, Insert the BASIC/XA diskette into drive one. Type RUN 
“D:CUSTOM.BAS" and press RETURN. The program loads into memory 
and displays: 


EXTENDED ATARI BASIC VERSION 1.1 
Copyright 1982 Thomas Newton 


This program lets you relocate EXTENDED ATARI 
BASIC for your system, 


Flesase hold om while I get ready... 


Do you want to relocate the program 
{tyupe Y or Nj? 


3. Type Y and press RETURN. The computer asks} 


Where should the program start 
(give address im decimal)? 


Type the number you wrote down in step 2 and press RETURN. The 
computer types? 


Hold om while I relocate the program 
& After the computer finishes, it asks} 


Do you have an 80-column printer 
(tupe Y or N)? 


Answer Y or N and press RETURN. 


7, The computer asks} 
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Do you want the proeram to check for 
an ATARI 850 Interface included with 


EXTENDED ATARI BASIC (Type Y or N) 
? 


Type Y and press RETURN, 
&. The screen clears and displays} 


EXTENDED ATARI BASIC VERSION 1.1 
Copyright 1982 Thomas Newton 


Frogram losds ati mexssx 
Frogram ends at t yyyyy 
Columms per Line? zz 


Flace a system diskette (Cone that has 
& copy of DOS) in drive one and press 
RETURN to write the AUTGRUN.SYS file. 
Fress any other key to quit without 
writing the AUTORUN.SYS file. 


9, Insert the diskette that you prepared in step 1 into drive one and 
press RETURN. The computer saves a copy of BASIC/XA on the 
diskette. 


10. After the computer saves the program, it types} 
Your disk mow contains 3 copy of 
EXTENDED ATARI BASIC. To use the 


program, place the disk in drive one 
when you turm your system on. 
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TRANSFERRING THE CASSETTE 
VERSION TO DISKETTE 


INTRODUCTION 


Although you can’t use the program on the first side of the BASIC/XA 
cassette with a diskette, BASIC/XA includes a second program for use 
with diskettes. 

TRANSFERRING BASIC/XA 


To transfer BASIC/XA to diskette, you need DOS II and at least 274K of 
RAM, 


1. Prepare a diskette. 
a. Insert the ATARI BASIC Language Cartridge in the cartridge slot. 
b. Insert the DOS II Master Diskette in disk drive one. 


c. Turn on your computer. Note. If you have an ATARI 850 Interface 
Module, leave it off, 


d. When you see the READY prompt, type DOS and press RETURN. 


e., When the screen displays the DOS menu, place a new (blank) 
diskette in drive one and type these underlined responses} 


SELECT ITEM OR RETURN FOR MENU 
L 
WHICH DRIVE TO FORMAT? 


i 
TYPE "Y¥" TO FORMAT DISK 1 
ok 


The disk drive whirs and lice tar a little while, 
SELECT ITEM OR RETURN FOR MENU 
avace DRIVE TO WRITE DOS FILES To? 
Tee "¥" TO WRITE DOS FILES TO DRIVE 1? 
WRITING NEW DOS FILES 
SELECT ITEM OR RETURN FOR MENU 


N 


TYPE "Y" TO CREATE MEM.SAV 
x 


You have now prepared the diskette. 
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SELECT ITEM OR RETURN FOR MENU 


READY 


2. Place the BASIC/XA cassette in the program recorder and rewind it 
to the beginning of side Zz, 


3. Press PLAY on the recorder. Type CLOAD and press RETURN. When 
you hear a bell, press RETURN again. The computer loads the program 
into memory and types READY when through. 


4, Type SAVE "DiCUSTOM.BAS" and press RETURN to save the program 
on diskette. To create the AUTORUN.SYS file that loads BASIC/XA! 


a. Type RUN. The program displays? 


EXTENDED ATARI BASIC VERSION i.i 
Copyright 1982 Thomas Newton 


This program lets you relocate EXTENDED ATARI 
BASIC for your system. 


Flesase hold on while I get ready... 


Do you want to relocate the program 
(type Y or N)? 


Type N and press RETURN. 
b. The computer asks! 


Do you have an 80-columnm printer 
(type Y or WN)? 


If you have a 40-column printer, type N and press RETURN. If you 
have an SO0-column rinter, type Y and press RETURN. If you don’t 
have a printer, it doesn’t matter which way you respond. 


c. The computer asks! 
Do you want the program to check for 
am ATARI 850 Interface included with 
EXTENDED ATARI BASIC (Type Y or WN) 
? 

Type Y and press RETURN, 


d. The screen clears and displays? 


EXTENDED ATARI BASIC VERSION 1.1 
Copyright 1982 Thomas Newton 


Frogram loads at? 7420 
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Frooram @emds at ¢ L149 
Columms per Line? 4 (10 for arn &0-column 
printer) 


Flece a system diskette Cone that has 
a copy of DOS) in drive one and press 
RETURN to write the AUTORUN.SYS file. 
Fress amy other key to quit without 
writing the AUTORUN.SYS file. 


e. Press RETURN. The computer saves a copy of BASIC/XA on the 
diskette. Then it types! 


Your disk mow contains a copy of 
EXTENDED ATARI BASIC. To use the 
program; place the disk im drive one 
when vou turn your system or. 


Your diskette is the same as the diskette version of BASIC/XA, Follow 
the instructions for the diskette version of the program. 
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ADVANCED TECHNICAL INFORMATION 


COMBINING BASIC/XA WITH OTHER AUTORUN.SYS PROGRAMS 


Since BASIC/XA is relocatable, you can combine it with many other 
AUTORUN.SYS programs. However, there are some restrictions: 


1, The other program must not be copy-protected. You will need to 
make a copy of the other diskette when. you combine the programs. 


2. The other program must fit entirely on page six or entirely above 
DOS, 


3. If the other program contains the code to check for the ATARI 850 
Interface Module, you should remove it. The PREPARE.BAS program 
described below can do this job for you, 


To combine the programs! 


1, Make a copy of the other program diskette and remove the ATARI 
$50 Interface Module code using the PREPARE.BAS program. Turn 
your computer off. Insert the ATARI BASIC Language Cartridge in 
the cartridge slot of your computer, place the diskette into disk drive 
one, and turn the computer on. Type PRINT 
PEEK (743)+256*#PEEK(744) and write down the number on the screen. 


2. Turn the computer off, Place a diskette without an AUTORUN.SYS 
file in drive one and turn the computer back on. This frees memory 
for CUSTOM.BAS., 


3. Place the diskette you used in step 1 into drive one. Type XIO 
32,#1,0,0,"D;AUTORUN.SYS,PROG2" to rename the other program. 


4, Place the BASIC/XA diskette in drive one and type RUN 
"DiCUSTOM.BAS". The program loads and displays} 


EXTENDED ATARI BASIC VERSION 1.1 
Copyright 1982 Thomas Newton 


This program lets you relocate EXTENDED ATARI 
BASIC for your system, 


Please hold on while I get ready... 


Do you want to relocate the proerem 
(type Y or N)? 


5. Type Y and press RETURN. The computer asks: 


Where should the program start 
(give address im decimal)? 
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Type the number you wrote down in step 1 and press RETURN. The 
computer types! 


Hold om wnile I relocate the program 
&, After the computer finishes, it asks? 


Do you have an SO-columnm printer 
(type Y or N)? 


Answer Y or N and press RETURN, 
7. The computer asks? 


Do you want the program to check for 
an ATARI 850 Interface included with 
EXTENDED ATARI EBASTC (Type Y or WN) 

? 


Type Y and press RETURN. 
8. The screen clears and displays! 


EXTENDED ATARI BASIC VERSION i.1 
Copyriaht 1982 Thomas Newton 


Froeram loads at? «xxxx 

Frogram ends at 3 yyyuy 

Columms per line? 10 (4 for a 40-column 
printer ) 


Flace @ system diskette (one that has 
#2 copy of DOS) in drive one and press 
RETURN to write the AUTORUN.SYS file. 
Fress any other key to quit without 
writing the AUTORUN.SYS file. 


9. Place the diskette you used in step 3 in drive one and press 
RETURN. The computer saves a copy of BASIC/XA on the diskette, 


10, The computer types} 


Your disk mow contains 8 copy of 
EXTENDED ATARI BASIC. To use the 
program, place the disks in drive one 
when you turm your system on. 


11. Type DOS to go to the DOS menu. When the SELECT ITEM OR 
RETURN FOR MENU prompt appears? 


a. If the other program fits entirely on page six! 


SELECT ITEM OR RETURN FOR -MENU 
Cc 
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COPY--FROM, TO? 
FROGZ, AUTORUN. SYS/A 


SELECT ITEM OR RETURN FOR MENU 
D 
DELETE FILESPEC 

FROGZ 

TYPE "Y¥" TO DELETE... 
DI FPROGZ 

: 


b. If the other program loads above DOS? 


SELECT ITEM OR RETURN FOR MENU 
Cc 
COPY--FROM, TO? 


AUTORUN. SYS,FROGZ/A 


SELECT ITEM OR RETURN FOR MENU 
D 

DELETE FILESFEC 

AUTORUN. SYS 

TYPE “Y¥" TO DELETE... 

DS AUTORUN.SYS 

Yr 

SELECT ITEM OR RETURN FOR MENU 
E 

RENAME, GIVE OLD NAME, NE 


FROGZ, AUTORUN. SYS 


THE PREPARE.BAS PROGRAM 


This program will remove the code that checks for the ATARI 850 
Interface Module from any AUTORUN.SYS file. If you have the diskette 


version of BASIC/XA, this program is saved on the program diskette as 
PREPARE.BAS, 


00 REN IORI KKK 
110 REM xx EXTENDED ATARI EASIC «x 
120 REM *x Version 1.1 KX 
130 REM xx *X 
140 REM xx Frogramt FREFARE.BAS xx 
150 REM XK Thomas Newton, 7/1982 x 
160 REM [OKO OR KKK KOK KKK KK KKK XK 
‘170 REM 

180 REM 

190 DIM AS$(1) 
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£00 GRAFHICS OFFRINT "EXTENDED ATARI BASIC VERSION 1.1" 
Z21l0 FRINT "Copyrignt 1982 Thomas Newton" 

220 FRINTIFRINT "This proerem remove the code that" 
220 FRINT "checks far the ATARI 850 from any" 

240 PRINT "AUTORUN.SYS file." 

220 FRINTSFRINT "Insert your diskette in drive one" 
260 FRINT “and press any kee to remove the ATARI" 
270 FRINT "S50 code," 

280 FOKE 744,255 

2?0 TF FEEK(C764)=255 THEN 290 

300 FOKE 764,255 

S10 FRINTIPRINT "Working..." fPRINT 

320 REM 

330 REM Rename AUTORUN.SYS file 


340 *ITO 36,4#1,0,0,"DSAUTORUN.SYS"{REM umlock file if locked 


350 XIO 32,#1,0,0,"DiAUTORUN.SYS,AUTORUN. TMF" 

360 REM 

370 REM Copy program to AUTGRUN.SYS, 

3860 REM except for ATARI G50 program 

390 OFEN #1,4,0,"DSAUTORUN., TMF" 

400 OFEN #2,6,0,;"Di4GuUuTORUN.SYS" 

410 TRAF 640°REM End-of-file trap 

420 GET #1,Xi2FUT €#2,X:GET #£1,X3FUT #2,X:IREM Copy header 

bytes to file 

430 REM 

440 REM Block copy loop 

450 GET #1,X?:GET #1,Y:START=256xY+xX 

460 IF START=65535 THEN 450 

470 GET #1,A¢3GET #1,B3ADEND=254xE+A 

480 REM 

490 REM Check for ATARI 850 INIT addr 

200 TF START<>738 OR ADEND2739 THEN 540 

ul GET £1,CiGET #1,D°3IF (€256*D+C)=149356 THEN 440: 

REM Skip S50 INIT sddress 

v20 FUT €2,X2FUT #2, Y7°FUT #2,ASFUT #2,68,CSPuUT #2,03 
GOTO 4403REM Regular INIT--copy all bytes to output 

330 REM 

340 REM Check. START amd ADEND 

vo0 FLAG=13IF START=14336 AND ADEND=14411 THEN FLAG=0 

360 IF FLAG THEN PUT #2,XiFUT $2, Y%3FUT €#2,AtPUT £2,683 
REM write block addr 

570 REM 

580 REM Loop for all bytes 

390 FOR ADDR=START TO ADEND 

600 GET #1,BYTESIF FLAG THEN PUT #2,BYTE 

610 NEXT ADDR 

620 GOTO 440 

630 REM 

640 REM Error trap--E0F 

650 X=PEEK(195)2REM get error rumber 

660 CLOSE #1:CLOSE #2:XI0 33,#1,0,0,"DtAUTORUN. THF"? 
REM Close files and delete old program 

670 IF X<>136 THEN FRINT "Disk ERROR "$X3" in line" ¢ 


PEEK CLIG4)+2568FEEK C187) 


660 IF 


A=2136 THEN FRINT 


"Thrower." 


THE ATARI 250 INTERFACE HANDLER 


After the computer loads DOS and/or an autoloading program, it checks 
for the presence of an ATARI S50 Interface Module, If it finds one, it 
loads the device driver over the serial bus. The device driver uses 
parts of page six while loading and relocates itself at LOMEM. It uses 
about 2E of memory. 


On a cassette-based ATARI Computer, the Operating System checks for 
the SSO when you turn the computer on. An autoboot cassette file will 
load before the interface handler. 


The sequence changes for a disk-based ATARI Computer. The computer 
loads DOS, but due to a bug in the Operating System does not check for 
the interface. To fix this bug, the AUTORUN.SYS file on the Master 
Diskette contains a program to check for the interface module. Here is 
a disassmebly (labels come from the Qperating System User’s Manual!) 


3800 LDA #4650 ;Device and unit mumbers 
3802 STA DDEVIC } for Ris 

S805 LDA #601 

3807 STA DUNIT 

380a LDA $43F Unknown command (probably an 
3B0c STA DCOMND >; INIT or UPLOAD command) 
3B0F LDA #640 sWill read 3a date frame from 
3Sil STA PSTATS 3; the device 

3814 LDA ##05 

3SE16 STA DTIMLO ;Timeout = S/é60th of 8&8 second 
3819 STA DBEUFHI $Load address = $0500 

381ic LDA #400 , 

361e STA DBUFLO 

3E21 STA DEYTHI 

3824 STA DAUXIL Auxillary bytes set to zero 
3B27 STA DAUX2Z 

38238 LDA #$0c jTransfer 12 bytes 

382c STA DEYTLO 

382F JSR STOV 3;Call Serial Bus handler 
3832 BFL GO sReturn if error (which 

3834 RTS >; means mo response) 

3835 GO LDX #406 ;Else copy these bytes 

3837 LOOF LDA $0500,xX ; 36S the new serial 

3838 STA £$0300,X% ; bus commands 

383d DEX 

383e BFL LOOF 

3840 JSR STOV jLoad driver 

3843 EMI RET ;Return om error 

3845 JSR $0506 sInit RS-232 code 

3848 JMF CDOSINI) s;Restart DOS 


384b RET RTS 


The program loads near the top of memory in a 16K ATARI Computer (DOS 
requires at least 16K of memory) It is relocatable--if you move the program 
up in memory, you don’t need to change any instructions. 
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When the ATARI 250 Interface Module is present, the device handler takes 
about 2K of memory. Since BASIC/XA requires at least 74K of memory. 
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SUBROUTINES IN BASIC/XA 


Below is a description of each subroutine in BASIC/XA, its interface with the rest of the 
program, and its purpose, 


Namet TITLE 

Entry conditions? proersam just loaded 

Exit canditions 3 part of page six wsed, then set to zero? 
cassette} locations #04689 to $06FF 
diskette: locations $0400 to #0649 

After BASIC/KXA loads into memory, it 
does mot use any part of page six. Ey using 
pege six during loading, I added the title 
mMesssge with mo loss of user memory. 

Because of the nature of the autoloaded process, 
it is impossible to tell that page six was 
altered, simce the program sets it beck to 
ZEeTQs 

Furpose?i TITLE prints the title message and copyright: 


XEXXEXTENDED ATARI EASIC 
KXXVersion 1.1 
XKXCopyright 1982 Thomas Newton 


ma atte mane come eats weet eee came mim stun arue nae nae anew sone cote eute mee ttm cms cons cite Hane SONS SEO snew Mey GEE Ant Aten Coe GORD Sum aint GOD GONG SOUS CODD GRO Oe Gime <= Sate TCD GOED tiTE MED cue anne Gots Sims wave ees conc Exc ees sone Stet Guo Emo mnt ott onee wend mere enue cote nese nity Goss case sous 


Namei INIT 
Entry conditions! program just loaded or SYSTEM RESET pressed 
Exit conditions $ MEMLO = address of first byte after program 
DOSINI = address of INIT’s SYSTEM RESET routine 
DOSVEC = address of NEWDOS (when user types DOS, 
BASIC jumps through DOSVEC to BASIC/ XA) 
For proeram just loaded? 
OLDINI = old cortents of DOSINI 
OLDDOS = old contents of DOSVEC 
SYSTEM RESET while in BASIC/XA: 
sll registers restored 
Sereen Editor address/buffer lenath restored 
contents of PTR and FTR2 restored 
Purpose? INIT links the program with the Operating System and BOS. 


(om ve mone cave sone coun mmc cava ones cove sree cae aur em seve cons wnat cum cans sane een Sent cium tied anew ene wane ete cam eu cone Cott cue some cote mee So=t ‘ums mEnL enim sete cute cout cant eine mene ene eet Git cumr anes sues cute mune mune mate ust Gute ana nen sete eric suns enon cnee cus eves anes rest eum eum some 


Namet NEWDOS 
Entry conditions: user typed DOS while in BASIC 
Exit conditions ? Jumps to MENU code after 
K saving registers, Screen Editor address/buffer length 
and the contents of FTR and FTRZ 
: K setting the INUSE flag to #FF (program in use) 
X setting NUMIOCE to $FF (print rumbers to file) 


EH getting the autput file es the sereen end the 
erase reference cammand for 40 columns 
e setting the screen margins to (2,39) and clearine 
the screen with e GRAPHICS 6 
Windle you are in the BASTC/XA menu, the 
Pragram uses zera-page locations $CE through #CE 
#6 pointers. When you return to BASIC or eo to 
the DOS menu, their contents are restored, 
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Nemet MENU 
Entry conditions: NENDOS hes just finished 
Exit conditions $ BASIC anc DOS actually exit from the menu by popping 
the return address from the stack and calling the 
RESTORE subroutine to restore registers and pointer 
Calls: PRINT, INFUT,LISTV, VALUE, CHANGE, XREF, DELLIN, RENUM, CHECK, 
QUTFUT, BASIC, and DOS 
Except for FRINT and INFUT, MENU calls these routines by copying 


their addresses from a table and modifying 3a JSR at the end of 
the MENU loop. 


Purpose! MENU displays the BASIC/XA menu, gets the user’s 
choice, and calls the appropriate subroutine. 


Name! FRINT 
Entry conditions! Accumulsetor holds message # 
All registers must be preserved 
TOCE is $00 (screen) or $50 (filed! a11 printing 
directed to the "file" goes to channel #I0CE. 
Tables FRADDR and FRLEN hold the addresses and 
lengths of all messages, 
Table FRIOCE holds one byte for each message! 
$00 means always to send the message to the screen. 
$FF means to send the message to file #IOCE. 
Exit conditions $: All registers are preserved 
Input/output errors are handled irniternmally. When an 
error (Cincluding BREAK) occurs, FRINT closes file 
#5, resets IOCE and XMAX for the screen, prints 
"I/O ERROR", and reprints the messsaqe. 
Furpose! FRINT prints every message used by BASIC/XA Cexcept 
for the title message when you load the proeram). 
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Name: OQUTCHR 
Entry comditions! Accumulator holds character 
Exit conditions ¢$ All registers are preserved 


Furpose! OQUTCHR prints a single character to file #IOCE. It uses PRINT 
to do the actusl work. 
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Nemes LIOISTY 

Callec tw $ MENU 

Entry canmditions $ rnane 

Exit conditions 3 rome 

Calls! FRINT, DUMF 

Furpose?: LISTV is selection A om the BASIC/XA mera, 
Tt sets DUMPFTR to point to @ RTS (do-nothing sudroutine), 
then calls DUMF to list the varishle memes. 


Neme} BDUMF 
Celled byt LIST, VALUE, and XREF 
Entry conditions! DUMFPFTR must be set to the address of ae subroutine 
Action! For each veriable mame, DUMF 
prints the variable name 
cells subroutine (DUMPFTR) with 
FTR pointing to start of variable neme 
VNUM = variable rumber (0 to 127) 
register Y holding lenath of name 
all registers cam be sltered 
prints 8 carriage return 
After printing the mames, DUMF prints the ruimber of variable 
names im the table. 
Exit comditions ${ All registers destroyed 
FTR sltered 


Name? VALUE 
Called byt MENU 
Entry conditions? none 
Action! Frints heeding 
Changes DUMFFTR to point to VALSUE 
Calls DUMP to print the variable value table 
Exit conditions ¢$ mone 


Furpose! VALUE is selection E om the BASIC/XA merns. 
It prints the varisble value teble. 
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Namei VALSUE 
Called byt DUMF (through DUMPFTR) 
Entry conditions! FTR is off-limits : 
VNUM holds mumber (0-127) 
Action: VALSUB checks the variable value table entry for variable VNUM, 
then prints its value or dimernsiom(s),. 
Exit conditions $ All registers destroyed 
FIR2 altered 
Furpose$’ VALSUE prints the variable values after the variable names. 
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Entre conditions $ FRO amo FRO+1 hold ae lé-bit inteser in low;,hiah farm 
Exit conditions ¢ All registers destroyed 


Furpose$ 


ee ee 


MNUM holds length of ASCII representation 
FINT prints the integer in FRO to the output file (NUMIOCE=¢FF., 
which is most of the timed, or the screen (NUMIOCH=$00). 
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Name? PEL 
Entry conditions? FRO holds a flogtine-point mumber 
Exit conditions 3 411 resisters destroyed 


Furpose? 


MNUM holds leneth of ASCII representstion 
FFL.T prints the mumber in FRO to the output file (NUMIOCE=¢FF, 
which is most of the time), or the screen (NUMIOCE=$00),. 


Name} CHANGE 


Called hy! 


MENU 


Entry conditions! mone 
Exit comditions % none 


Calis? 


1) GETVAR 


Entry? mone 
Returns BUF hold variable mame with bit 7 of last character set. 
Y register holds leneth of variable name, 
A register holds last character (with bit 7 set). 
Carry set if error, clear if mo error. GETVAR prints 

its own error messages, 
Purposeti GETVAR gets 8& variable mame for CHANGE and puts it 

in the format used by the variable mame table. 


2) FINDVAR 


Entry? BUF holds variable mame to be fonnd 
Y register holds length of variable name 
Return’ Carry set if name not found, 
If mame found (carry clear), PTR points to the start of 
the mame im BASIC’s variable mame table. 


3) DELETEZ 


Entrys FTR points to start of mame to delete 
LEND holds leneth of variable mame 

Return? Variable mame deleted and BASIC’s pointers adjusted, 
FTRZ is altered. 


4) INSERT 


Furposet 


Entry: FTR = where to insert mew variable nsme 
RUF holds variable mame with bit 7 of last character set 
LENI is the length of the mew variable mame. 

Return? Variable mame inserted into BASIC’s variable name table 
PTRZ is altered. 


CHANGE is selection C on the BASIC/XA menu. It lets 
the user change variable names. 
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Neme? GETVAR 

Celled byes CHANGE 

Entry/exit: described sbove 

Furpose! GETVAR gets se variable name from tne user and puts it in the 
correct format for BASIC’s variable name table. 


Nemet FINDVAR 

Called byt CHANGE 

Entry/exit: described umder CHANGE 

Furpose? FINDVAR finds the name in BUF in BASIC’s varisble name teble. 
CHANGE uses FINDVAR twice--to find the old name in the 
table, and to make sure the mew name is unused, 


Name: DELETEZ 

Called ty? CHANGE 

Entry/exit! described umder CHANGE 

Furposet DELETEZ deletes a variable mame from BASIC’s variable 
mame table. CHANGE uses DELETEZ to remove the old varisble 
name before inserting the mew one. 


Nemet INSERT 

Called by! CHANGE 

Entry/exit? described umder CHANGE 

Furpogse? INSERT puts the maw variable mame in BASIC’s variable name table 


Name? DELETE 
Called byt DELETE2, DELLIN 
Entry conditions! FTR points to start of delete sres 
LEND holds rumber of bytes to delete 
xit conditions ? PTR unchanged} FITRZ altered 
All registers destroyed 
BASIC pointers common to both variable names and 
program lines adjusted for deletion 
Furpose? DELETE remove program lines and variable mames from the Program. 


Name? LINES 
Called by! DUMF, RENUM, CHECK 


Entry conditions: LINFTR = address of subroutine to call for each stmt. 
Exit conditions $ FTR2Z is altered by LINES 
FTR may be altered by subroutine (LINFTR) 
: All registers destroyed 
Calls! XREFSUE, RENSUE, ard CHSUE (through LINFTR) 
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Canditionms$ LINENG = current line mumber Clow byte, Nigh bute) 
LINELEN = lanath of current line Come byted 


INDEX = offset to statement length byte from start 
of current line 
CMDEYT and register Y = offset to stetement command 


byte from start of current line. 
LIMIT = offset to mext statement lenetnh byte (LIMIT 
= LINRLEN if current statement is the 
last statement in the line) 
FTRZ points to the start of the current line. 
None of these veriables may be altered, 
The subroutine does mot need to preserve ary registers, 
Furpose? LINES loops through ell the statements in the program. Ey 
breaking @ line into statements, LINES simplifies the jobs 
of XREFSUE, RENSUE, amd CHSUE, 


Name? XREF 
Called by! MENU 
Entry conditions? mone 
Exit conditions ? none 
Calls? DUMF, FRINT 
Action! XREF prints the heading "VARTABLE CROSS REFERENCE TABLE" 
It changes DUMPFTR to LINES amd LINPTR to XREFSUE 
XREF then calls DUMF? 
For each variable mame, DUMF prints the mame and calls LINES! 
XREFSUE checks to see if variable VNUM is used in the 
current statement and prints the line rmumber if so. 
After printing the mames, DUMP prints the rmumber of variable 
names in the table. : 
Furposet  XREF is selection D an the BASIC/XA menu. It 
Prints @ cross-reference listing of variable mames and 
line mumoers. 
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Name? XREFSUE 
Called by! LINES (through LINFTR) 
Entry conditions? see calling conditions for DUMF amd LINES, also 
OLDVAR = last variable for which KREFSUE printed 
a cross reference. OLDVAR is mormally 0 to 127, 
but XREF sets it to Z55 so thet the first cross- 
reference starts a new line. 
OLDLIN = last line number printed 
XCNT = mumber of references printed om current line 
XMAX = maximum rmumber of cross-references per line. 
When XCNT = XMAX, XREFSUE starts 3a mew line before 
printing a cross-reference, 
Calls: TOKEN, FRINT, FINT 
Exit conditions $ All registers destroyed 
QLDVAR, GLDLIN, amd XCNT updsted when XREFSUE prints 
@ line mumber 
Action: XREFSUB checks the current statement for variable #VNUM 
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if the varisble is in the stsetement? 
If VNUM is mot @qual to OLDVAR or LINENOQ is mot equal 
to OLDLING 
Start mew printing line if VNUM anc OLDVAR sre different. 
Start mew printing line if XCNT = XMAX, 
Frint LINENO plus enough spaces to pad the field to 
seven cheracters 
Let XCNT = XCNT + 1 
Let OLDVAR = VUNUM arnci OLDVIN = LINENO 
Furpose: XREFSUB prints the line mumbers in the cross-reference table. 
The width of the table is set by XMAX! XREFSUE will print 
up to XMAX references per line, for se width of 7xXMAX+6 
characters (XMAX=4 for the screen; amd XMAX=4 or 10 for 
printouts), 


Nemet TOKEN 
Called byi XREFSUE, RENSUE 
Entry comditions! see calling conditions for LINES, also 
Y register holds offset to current token from 
the start of the line 
Exit conditions $ OLDY = contents of Y register on entry 
Y register points to next token (if any) or 
the same one (Cif mone?) 
A register holds symbol (Cif any left)--for 3 
numeric comstant or string comstamt, the 
A register holds the first byte. 
Carry set if there were mo tokens left in the 
statement on eantry 
All registers destroyed 
Furpose? TOKEN gets the next token in the current statement. Since 
XREFSUE and RENSUE meed to get the mext token in the current 
statement, I put the code in 8 subroutine. This also 
made it easier to handle statements such as IF A=E THEN 
FRINT A, where BASIC treats the line aes two statements -— 
IF A=E THEN and PRINT A -- but does not put an end-of-— 
statement byte between them. 
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Namei DELLIN 

Called by? MENU 

Entry conditions’: none 

Exit comditions $ none 

Calls? GETTWO, DELETE, FRINT 

Furpose! DELLIN is selection FE om the BASIC/XA meru, 
It deletes a range of lines from the program. 


Names GETTWO 
Called by? DELLIN, RENUM 
Entry conditions: none 
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Exit comditioms ¢ Carry set if error (error messages handled inmternaelly) 
If mo error, carry clear and NUMI/NUMZ hold numbers 
im the range of 0 to 327647. 
All registers cestroyed 
Furpose? GETTHWO gets two rmumbers from the user amd checks to make sure 
that they ere in the range of 0 to 32747. 


Nemet  RENUM 

Called by: MENU 

Entry comditions? mane 

Exit comditions 3} nome 

Calls? FRINT, LINES, GETTWO 

Furpose! FRENUM is selection F om the BASIC/XA menu. It 
renumbers e BASIC program the following way?! 


Calls FRINT and GETTWO for starting line mumber 
and increment. If the user just presses RETURN, 
RENUM uses 10 for both mumbers. 

Checks to see if renumbering is possible by setting 
8&8 temporary variable to NUMI and sddineg NUM2 for 
each line of the program. If the sum exceercis 
32767, RENUM prints the CAN’T RENUMBER message. 

xX IF RENUMBERING IS FOSSIELE xxx 

Changes LINFTR to RENSUE amd calls LINES. LINES calls 
RENSUE for each statement, amd RENSUB changes the 
line reference im that statement. To save memory; 
RENSUE uses the line rmumbers at the beoinnmine of 
each line (which have not been changed yet) to 
cseleculate mew line mumbers,. 

Changes the line mumbers et the start of each line. 
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Name? RENSUE 
Called byt LINES (througn LINPTR) 
Entry comditions: see calling conditions for LINES 
Exit conditions ¢* All registers destroyed}; FTR altered 
Calis: GETNEW, FPRINT, PINT 
Action: If RFLAG is zero, RENSUE updates GOTO, GOSUB, etc., references 
in the current statement and checks them for errors. If 
RFLAG is 2355, RENSUE just checks the statement, but does 
not update it. 
The combination of LINES and RENSUE checks every statement 
im the program. 
Furpose 3 RENSUB updates GOTO, GOSUE, etc., references for RENUMBER., 
It also checks GOTO, GOSUE, etc., references for CHECK FROGRAM. 


Nemes GETNEW 
Called by: RENSUE 
Entry conditions: PTRZ off-limits 
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FLIN nolds line mumber to fined 
Exit comditioans $ PTR gltered 
If line FLIN exists, FRO = mew line rmumber after 
TEMUMbDeSETr Lime 
Carry set if line FLIN does mot exist 


Nemei CHECK 
Called byt MENU 
Entry comditions! mone 
Exit conditions % none 
Celle? LINES 
Action: CHECK sets LINFTR to RENSUB, sets RFLAG to 255, seme calls LINES 
to check e@11 GOTO, GOSUE, etc., references, 
Then CHECK sets LINFTR to CHSUE anc calls LINES to check for 
syntax errors and INFUT statements without variable mames. 
Furpose? CHECK is selection G om the BASIC/XA menu. 
It checks the program for common errors. 


Name? CHSUE 

Called by! LINES (throueh LINETR) 

Entry comditions! see calling conditions for LINES 

Exit conditions $ All registers destroyed 

Furpose? CHSUE checks the current statement for syntax errors, 


Name? OUTFUT 
Called byt MENU 
Entry conditions’ nome 
Exit conditions $ mone 
Calis! INFUT, Operating System 
Action: OUTFUT closes file #5 amd sends output to the screen, 
Then it prompts the user for a filename. OQUTFUT attempts 
to open the file. If successful, it sets IOCE to $50 
(file mumber * 16, as required by the Operating Sustem). 
There are two bugs in the cassette handler? (1) sometimes 
incorrect tones are written on the tape leader, amd (2) 
the motor does mot stop after an OFEN for writing. OUTFUT 
comtains code to defest these buas Chowever, you will still 
encounter them im your programming), 
Furpose? OUTFUT is selection H on the BASIC/XA manu. 
It sends output from LIST VARIABLES, VARIABLE VALUES, and 
CROSS REFERENCE to the screen, printer, or tape/diskette file 
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Name? EASTC 
Called byt MENU 


Action: The subroutine pulls the return address off the stack, calls 
RESTORE, and does a RTS to return to BASIC. 
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Furpase é Returms to BASTC from tne meri. 


Name? BOS 

Called byt MENU 

Action: The subroutine pulls the return address off the stack, calls 
RESTORE, gma does a JMF COLDDOS) ta ego to the DOS menu. 

Furpose! Goes to the BOS mernu from the BASIC/XA meru. 


Neme? RESTORE 
Called byt EASTC, DOS, INIT 
Entry conditions? none 
Exit conditions ${ File #5 closed 

Screen Editor buffer and length restored 

Contents of FTR and FTRZ restored 

All registers restored to original values 
Purpose! RESTORE restores the state of the ATARI Computer hefore returnir 
to ca 

DOS, the Operating System, or EASIC, 


Name? INFUT 

Called by? many subroutines 

Entry conditions! A register = maximum rmumber of characters Cincl. RETURK 

Exit canditions ¢~ EMI om error} Y register holds status/error code 

Furposet INFUT gets a line of input from the user and masks lower case 
and inverse video. 
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Limited Warranty on Media and Hardware Accessories. We, Atari, Inc., guarantee to you, the original 
retail purchaser, that the medium on which the APX program is recorded and any hardware 
accessories sold by APX are free from defects for thirty days from the date of purchase. Any applicable 
implied warranties, including warranties of merchantability and fitness for a particular purpose, are 
also limited to thirty days from the date of purchase. Some states don’t ailow limitations on a warranty’s 
period, so this limitation might not apply to you. If you discover such a defect within the thirty-day 
period, cail APX for a Return Authorization Number, and then return the product along with proof of 
purchase date to APX. We will repair or replace the product at our option. 


You void this warranty if the APX product: (1) has been misused or shows signs of excessive wear: 
(2) has been damaged by use with non-ATARI Home Computer products: or (3) has been serviced or 
modified by anyone other than an Authorized ATARI Computer Service Center. Incidental and conse- 
quential damages are not covered by this warranty or by any implied warranty. Some states don't allow 
exclusion of incidental or consequential damages, so this exclusion might not apply to you. 


Disclaimer of Warranty and Liability on Computer Programs. Most APX programs have been written 
by people not employed by Atari, Inc. The programs we select for APX offer something of value that we 
want to make available to ATARI Home Computer owners. To offer these programs to the widest 
number of peopie economically, we don't put APX products through rigorous testing. Therefore, APX 
products are sold “as is,” and we do not guarantee them in any way. In particular, we make no warranty, 
express or implied, including warranties of merchantability and fitness for a particular purpose. We are 
not liable for any losses or damages of any kind that result from use of an APX product. 


For the complete list of current 
APX programs, ask your ATARI retailer 
for the APX Product Catalog 
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PROGRAM 
EXCHANGE 
P.O. Box 3705 


Santa Clara, CA 95055 


We're interested in your experiences with APX programs 
and documentation. both favorabie and untavorabie. 
Many of our authors are eager to improve their programs 
if they know what you want. And. of course. we want to 
know about any bugs that slipped by us. so that the 
author can fix them. We aiso want to know whether our 


1. Name and APX number of program. 


Review Form 


instructions are meeting your needs. You are our best 
source for suggesting improvements! Please help us by 
taking a moment to fill in this review sheet. Fold the sheet 
in thirds and seal it so that the address on the bottom of 
the back becomes the envelope front. Thank you for 
heiping us! 


2. If you have problems using the program, please describe them here. 


3. What do you especially like about this program? 


4. What do you think the program's weaknesses are? 


5. How can the cataiog description be more accurate or comprehensive? 


6. Onascale of 1 to 10. 1 being “poor” and 10 being “excelient’”. please rate the following aspects of this program: 


Easy to use 


User-oriented (e.g.. menus. prompts. clear language) 


Enjoyable 

Seif-instructive 

Useful (non-game programs) 
Imaginative graphics and sound 


7. Describe any technical errors you found in the user instructions (please give page numbers). 
a a es 
SS es 
i se 

8. What did you especially like about the user instructions? 
i i ee 
a ee 


nn a 


9. What revisions or additions would improve these instructions? 


tr ey pre epeeee 


10. On a scale of 1 to 10, 1 representing “poor” and 10 representing “excellent”, how wouid you rate the user 
instructions and why? 


11. Other comments about the program or user instructions: 


STAMP 


ATARI Program Exchange 
P.O. Box 3705 
Santa Clara. CA 95055 


{seat nere} 


